home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc2of2-Partner-Edition.iso / ARPL Apps⁄Art 1⁄94 Partner / ARPL Apps_Art 1_94 Partner / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1993-12-17  |  22.4 KB  |  25 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>4</cardCount>
  7.     <cardID>2925</cardID>
  8.     <listID>3940</listID>
  9.     <cantModify><true /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><true /></cantAbort>
  12.     <cardSize>
  13.         <width>640</width>
  14.         <height>480</height>
  15.     </cardSize>
  16.     <script>-- Stack: Apple Ref & Pres Library Internal Graphics Reader 1.3b1-- ¬©1991-93 Medior, Inc. & Apple Computer, Inc.-- 12/10/93 05:04on updateScroll theKey,theFldlock screenput return & cd fld theFld into theListput return before theKeyif theKey is not in theList then return 0put number of lines of (char 1 to offset(theKey,theList) of theList) into theLineput (theLine-1) * textHeight of cd fld theFld  into theLineif theLine < 0 then put 0 into theLineset scroll of cd fld theFld to theLineunlock screenend updateScrollon arrowkey theKeyif theKey = "Right" thenif there is a btn "Next" thensend "mouseStillDown true" to btn "next"end ifelse if theKey = "Left" thenif there is a btn "prev" thensend "mouseStillDown true" to btn "prev"end ifend ifend arrowkeyon MediorDB1 cif c is not "CloseDown" then checkForVolumepass MediorDB1end MediorDB1function MediorDB2 cif c is not "Dispose" then checkForVolumepass MediorDB2end MediorDB2on checkForVolume startFlagglobal gCDVolume9if there is not a folder gCDVolume9 & "CD Data" thenbeepanswer "This stack requires the " & cdName() &" CD be mounted. Please do and click OK."if there is not a folder gCDVolume9 & "CD Data" thenif startFlag is not true thenspinCursorgo cd 1beepanswer "The " & cdName()&" CD could not be found.  Please mount it and try again." with "Cancel"exit to HyperCardend ifend ifend ifend checkForVolumefunction cdNamereturn "ARPL 1/94 Art/Applications"end cdNamefunction checkError theStringreturn "Error: " is in theStringend checkErrorfunction CdNumberInBgreturn (number of this cd - number of cd 1 of this bg) + 1end CdNumberInBgon fail eanswer eend failon hideStuffspinCursorif item 4 of the screenRect ‚â§480 then hide menuBarhide btn "Idler"end hideStuffon HelpLinkToHelpend Helpon toggleHelpset visible of cd fld "HelpText" to not visible of cd fld "HelpText"end toggleHelpon cGglobal gCurMovie1put "CG "&the currTime of window gCurMovie1end cGon LinkToHelpglobal gCurMovie1send "helpText" to this cdget the resultput it into helpTextput line 1 of helpText into theTitledelete line 1 of helpTextput windowScript ("Help",theTitle,helpText) into aif line 1 of a = "Print" then print theTitle & return & return & helpTextset cursor to handend LinkToHelpon moveWindowglobal gCurStillMoviespinCursorif there is a window gCurStillMovie and there is a btn "MoovLoc" thenset topLeft of window gCurStillMovie to topLeft of btn "MoovLoc"end ifend moveWindowfunction movieCenterLocglobal gMovieRectput gMovieRect into rput rect of cd window into r2put (abs of (item 3 of r2 - item 1 of r2) - abs of (item 3 of r - item 1 of r)) div 2 into theHput (abs of (item 4 of r2 - item 2 of r2) - abs of (item 4 of r - item 2 of r)) div 2 into theVreturn theH &","&theVend movieCenterLocfunction hitsForTerm sL,tFput "" into hitListput "" into bListopen file tFread from file tF until eofput it into findInclose file tFset cursor to busyrepeat with i = 1 to number of lines in sLput "" into subHitsput line i of sL into thisWordput word 1 of thisWord into line i of bListdelete word 1 of thisWordif char 1 of thisWord = space then delete char 1 of thisWordput line lineItemOffset(thisWord,findIn) of findIn into subHitsrepeat until item 1 of subHits is a number or subHits = ""delete item 1 of subHitsend repeatput subHits into line i of hitListend repeatput line 1 of hitList into allHitsset cursor to busyrepeat with z = 2 to number of lines of bListput ListLogic(allHits,line z of bList,line z of hitList,false,",") into allHitsend repeatsort items of allHits numericrepeat until char 1 of allHits is not ","delete char 1 of allHitsend repeatreturn allHitsend hitsForTermfunction TitleListC hits,tFput ".t" after tFset cursor to busyopen file tFread from file tF until eofput it into cdNamesclose file tFput myTitles(hits,cdNames) into ttlsreturn ttlsend TitleListCon helpTextif there is a cd fld "helpText" then return cd fld "helpText"end helpTexton openCardrepeat until not the lockscreenunlock screenend repeatend openCardon commandKey theKeyif theKey = "Q" thenpass commandKeyelse exit to HyperCardend commandKeyon domenu wglobal userNameif userName is "Peter Meyer" then pass domenuif w is in "Prev Next Last First Back Recent" thenexit domenuelse if w is "Quit HyperCard" thenLinkToQuitelse pass domenuend domenuon closeCardglobal gCurMovie1lock screenset cursor to 4if there is a window gCurMovie1 then close window gCurMovie1end closecardon openStackglobal gARPLMain,gARPL3Init,gCDVolume9,gAttacheList,gUserNameset the userModify to trueif item 4 of the screenRect ‚â§480 then hide menuBarif gARPL3Init is not true thenlock screenset cursor to 4if the long version < 02108000 thenanswer "This requires HyperCard 2.1 or greater. " & ¬¨"Please update your copy of HyperCard and try again." with "Quit"put true into gARPL3Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifset cantAbort of this stack to trueput long name of this stack into gARPLMainput pathway(trim(long name of this stack)) into thePathput "ARPL 1/94 CD 2 - Partner:" into gCDVolume9checkForVolume trueif thePath = gCDVolume9 thenput " ARPL Art/Applications 1/94" into dNput "CD" into wanswer "You are currently running ARPL from the "&w&¬¨".  Copying the interface from the "&w&" will allow it to run faster." & return & return &¬¨"Would you like to copy the interface to your hard disk now (requires about 1.2Mb of space) "&¬¨"or continue to use the copy from the "&w&"?" with "Quit" or ("Use "&w) or "Copy Now"if it = "Copy Now" thenask file "Save the ARPL Art/Applications Interface as:" with dNput it into nFif nF is not "" then-- put ":" after nF-- if there is not a folder nF then-- NewFolder nF-- get the Result-- if it is not 0 then-- if it is not -48 then osErr it-- end if-- end ifset cursor to 4FileCopy trim(long name of this stack),nF,true,"DontResolveAlias"--,"DontShowProgress"put the result into eif e contains "Error" thenanswer "Sorry, unable to copy the ARPL interface - it will run from the "& w & return & eelseanswer "Installation successful!" & return &¬¨"Would you like to quit now and use the copy on your hard disk or continue "&¬¨"running from the "&w&"?" with "Continue" or "Quit"if it = "Quit" thenput true into gARPL3Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifend ifend ifelse if it = "Quit" thenput true into gARPL3Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifend ifspinCursorput MediorQTVersion() into theQTVersionif value of theQTVersion < "15" thenanswer "QuickTime‚Ñ¢ 1.6 is required to view this presentation. "&¬¨"Please copy the QuickTime‚Ñ¢ 1.6 extension (located in the Getting Started Folder) "&¬¨"into your System folder, restart and try again." with "Quit"put true into gARPL3Initlock messagessend "domenu Quit HyperCard" to HyperCardexit openstackend ifspinCursorput PICTpath() into gMainPictPathif the heapspace < 1200000 and the optionKey is not "Down" thenanswer "Please quit and increase the partition size to 2400K or larger." with "Quit"lock messagesput true into gARPL3Initsend "domenu Quit HyperCard" to HyperCardexit openstackend ifhide groupsswitchXrooput the result into monListif "error" is not in monList thenput loc of cd window into cdLocput the screenRect into sput 1 into theMonNumput false into colorWarningrepeat with m = 1 to number of lines of monListput line m of monList into thisLineput item 2 to 5 of thisLine into theRectput item 2 of theRect &"," & item 1 of theRect & "," & item 4 of theRect & "," &¬¨item 3 of theRect into theRectput theRect into item 2 to 5 of monListif (cdLoc is within theRect) then put m into theMonNumput item 6 of thisLine into curDepthif curDepth > 8 thenif colorWarning = false thenbeepanswer "ARPL requires that your monitors are set to 256 colors (8 bit)." & return &¬¨"Click ‚ÄúSwitch‚Äù to change this automatically." with "Quit" or "Switch"if it = "Quit" thenlock messagesput true into gARPL2Initsend "domenu Quit HyperCard" to HyperCardexit openstackend ifend ifswitchXroo 8,"color",mend ifend repeat-- put line theMonNum of monList into hcMonDetails-- put item 6 of hcMonDetails into curDepth-- put item 7 of hcMonDetails into theShade-- put last item of hcMonDetails into maxDepth-- if maxDepth > 8 then put 8 into maxDepth-- if curDepth is not maxDepth then switchXroo maxDepth,"color",theMonNumend ifget the screenRectput abs of (item 4 of it - item 2 of it) into wif w < 480 thenbeepanswer "This stack requires a 13‚Äù monitor (or larger)."end iflock screenset the textArrows to truecHCinstallreadPrefsput "" into gAttacheListput true into gARPL3Initend ifend openstackon closeStackcHCdisposeMediorDB1 "CloseDown"get MediorDB2("Dispose")pass closeStackend closeStackon resumeStackif item 4 of the screenRect ‚â§480 then hide menuBarcHCinstalllock screenspinCursorsend "openBackground" to this cdsend "openCard" to this cdpass resumeStackend resumeStackon suspendStackcHCdisposesend "closeCard" to this cdpass suspendStackend suspendStackfunction trim tNdelete char 1 to 7 of tNdelete last char of tNreturn tNend trimFunction PathWay tFrepeat with i = length of tF down to 1if char i of tF = ":" then exit repeatend repeatif i < 2 then return tFelse return (char 1 to i of tF)end PathWayfunction RemovePath tFput length of tF into pLrepeat with i = pL down to 1if char i of tF = ":" then exit repeatend repeatif i + 1 = pL thenreturn last char of tFelseadd 1 to iif pL ‚⧠i thenreturn tFelse return (char i to pL of tF)end ifend RemovePathfunction VolumeNameput trim(long name of this stack) into tFrepeat with i = 1 to number of chars of tFif char i of tF = ":" then exit repeatend repeatreturn (char 1 to i of tF)end VolumeNamefunction PICTpathreturn pathway(trim(long name of this stack)) & "PICTs:"end PICTpathon colorizeHCglobal gOKToColorizeif (gOKToColorize = "") then pass colorizeHCend colorizeHCon clearCardColorizeHC "Erase",rect of this cdif the result is not "" then answer the resultgo this cdend clearCardon selectLineCd lineNum,fldNumselect line lineNum of cd fld (last word of fldNum)end selectLineCdon LinkToMainLinkToCard "Main"end LinkToMainon LinkToCard theCd,theEffect,theStacklock screenspinCursorif theStack = "" then put long name of this stack into theStackgo cd char 1 to 30 of theCd of theStackget the resultif it is not "" then underDevwait until not the mouseClickend linkToCardon SpinCursorglobal CursIDput (CursID+1) mod 8 into CursIDset cursor to CursID+256end SpinCursorfunction LineOffset fT,fIif fT is not in fI then return 0put return & fI & return into fIreturn number of lines of (char 1 to offset(return&fT&return,fI) of fI)end LineOffsetfunction LineItemOffset fT,fIif fT is not in fI then return 0put return & fI & return into fIreturn number of lines of (char 1 to offset(return&fT&",",fI) of fI)end LineItemOffseton LinkToQuitglobal gCDVolume9answer "Quit ARPL Now?" with "Cancel" or "Quit"if it = "Cancel" then exit LinkToQuitspinCursorLinkTocard "CopyRights"repeat until not the lockscreenunlock screenend repeatrepeat 8wait 1 secondspinCursorend repeatsend "domenu Quit HyperCard" to hyperCardend LinkToQuiton cHCinstallspinCursorif checkEnviron() is not "OK" thengo HomegetHomeInfoexit to HyperCardend ifsetupColorGlobalspinCursorend cHCinstallon setupColorGlobalglobal gCHCColors,gXCMDErrorput "" into gXCMDErrorput MaxDepth() into tMif gXCMDError is not empty then answer gXCMDErrorif (tM < 8) then put "0,39321,65535  65535,65535,65535  65535,65535,65535  65535,17882,9080" into gCHCColorselse put "22733,31573,52428  65535,65535,65535  56797,56797,56797  39321,13107,39321" into gCHCColorsend setupColorGlobalfunction checkEnvironput MaxDepth() into tDif tD < 4 then answer "This stack requires a color system set to at least 16 colors (4 bit-depth) to display color."put the heapSpace into cHif (tD = 1) and (cH <2600) then errMemory tD,"1100K"else if (tD=2) and (cH <117200) then errMemory tD,"1200K"else if (tD=4) and (cH <205000) then errMemory tD,"1250K"else if (tD=8) and (cH <384000) then errMemory tD,"1300K"else if (tD=16) and (cH <721000) then errMemory tD,"2400K"else if (tD‚â•24) and (cH <1421000) then errMemory tD,"3000K"else if stackActivate() is not "" thenerrColorreturn "OK"else return "OK"end checkEnvironon errMemory tD,PartitionSizeput lastItem(":",the long name of HyperCard) into hCbeepanswer "Warning: not enough memory to run ARPL in" && tD && "bit mode. The memory partition size of" && hC && "should be at least" && PartitionSize & "."end errMemoryfunction lastItem tD,sif tD is in s then put lastItem(tD,char offset(tD,s) + 1 to length(s) of s) into sreturn send lastItemfunction stackActivateglobal gOKToColorizeput "" into gOKToColorizecolorizeHC "assignToFront"if the result is not "" thenput the result into gOKToColorizereturn gOKToColorizeend ifend stackActivateon errColorglobal gOKToColorizeanswer "Warning: The environment ARPL is currently running in is not able to support color." & return & "Reason:" && gOKToColorizeend errColoron cHCdisposelock screencolorizeHC "dispose"end cHCdisposeon closeMovieglobal gCurMovie1,gARPLQTAudiospinCursorput the audioLevel of window gCurMovie1 into gARPLQTAudioend closeMovieon clearMovieglobal gCurMovie1if there is a window gCurMovie1 then close window gCurMovie1put "" into gCurMovie1end clearMovieon DrawColor thePath,r1,r2global userName,gPictPathif thePath = "" then exit drawColorif thePath is in "ClearErase" thenColorizeHC "Erase",rect of this cdelse--‚Ä¢‚Ä¢¬†Toggle comment of next 5 lines to use res or file-- if gPictPath = "" then put pictPath() into gPictPath-- if ":" is not in thePath then-- put gPictPath& thePath into temp-- if there is a file temp then put temp into thePath-- end ifif r1 = "" and r2 is not "" then put rect of cd window into r1colorizeHC "add",thePath,r1,r2end ifgo this cdend DrawColoron UpdateCdPictend UpdateCdPicton WritePrefs-- global gUserName,gUserLocation,gMarket,gAttacheList,gARPLQTAudio-- spinCursor-- put PrefPath() & "User Data" into tF-- open file tF-- write gUserName & "‚âà" & gUserLocation & "‚âà" & gMarket& "‚âà" & gARPLQTAudio &¬¨-- "‚âà" & gAttacheList to file tF-- close file tFend WritePrefson WriteQTAttache-- global gQTAttacheList,gQTAttachePaths-- spinCursor-- put PrefPath("ARPL 12.0") & "ARPL Movie Attache" into tF-- put "ARPL Movie Attache" & return into t-- repeat with z = 1 to number of lines of gQTAttacheList-- put line z of gQTAttachePaths & "‚àÇ"& line z of gQTAttacheList & return after t-- end repeat-- spinCursor-- open file tF-- write t to file tF-- close file tFend WriteQTAttacheon readPrefs-- global gUserName,gUserLocation,gMarket,gAttacheList,gARPLQTAudio-- global gCDVolume9,gPresentationsList,gTemp1-- spinCursor-- put PrefPath() & "User Data" into tF-- open file tF-- read from file tF until eof-- close file tF-- set the itemDelimiter to "‚âà"-- put item 1 of it into gUserName-- put item 2 of it into gUserLocation-- put item 3 of it into gMarket-- if gMarket = "Large Business" then put "Enterprise" into gMarket-- put item 4 of it into gARPLQTAudio-- delete item 1 to 4 of it-- put it into gAttacheList-- set the itemDelimiter to ","end readPrefson osErr theErroranswer "An error has occurred:" & return & theErrorexit to hyperCardend osErrfunction PrefPath tFif tF = "" then put "ARPL 12.0" into tFput systemPath() into sPput sP &"Preferences:"&tF&":" into fFif there is not a folder (sP &"Preferences:") thenNewFolder sP &"Preferences:"get the Resultif it is not 0 and it is not -48 then osErr itNewFolder fFget the Resultif it is not 0 and it is not -48 thenosErr itend ifelse if there is not a folder fF thenNewFolder fFget the Resultif it is not 0 and it is not -48 then osErr itend ifreturn fFend PrefPathfunction applicationsPathglobal gCDVolume9return gCDVolume9&"Applications:"end applicationsPathfunction applicationsDataPathglobal gCDVolume9return gCDVolume9&"CD Data:"end applicationsDataPathfunction infoCenterDataPathglobal gCDVolume9return gCDVolume9&"CD Data:"end infoCenterDataPathon underDevbeepanswer "Not implemented in this prototype."exit to HyperCardend underDevon Copy tFs,apglobal gTheError,gCDVolume9,gAllAppsList,gAllAppsRecsSpinCursorput "" into gTheErrorrepeat until "‚àÜ" is not in tFsput quote into char offset("‚àÜ",tFs) of tFsend repeatrepeat until "‚âà" is not in tFsput "," into char offset("‚âà",tFs) of tFsend repeatput "None" into compressedif last char of tFs is ":" thenput pathway(line 1 of tFs) into sPput folderSize(sP) into rqif rq is not a number then exit copyput sP into tempdelete last char of tempput removePath(temp) into tempput "folder ‚Äú"&temp&"‚Äù" into promptelseput line 1 of tFs into sPput fileSize(sP) into rqif rq is not a number then exit copyput sP into tempput removePath(temp) into tempput length of temp into theLif char theL-2 to theL of temp = ".dd" thendelete char theL-2 to theL of tempput "compressed folder ‚Äú"&temp&"‚Äù" into promptput "DD" into compressedelse if char theL-3 to theL of temp = ".sea" thendelete char theL-3 to theL of tempput "compressed folder ‚Äú"&temp&"‚Äù" into promptput "SEA" into compressedelse put "file ‚Äú"&temp&"‚Äù" into promptend ifif rq contains "Error" thenanswer "Sorry, unable to copy "&prompt&": " & return & rqexit Copyend ifif ap = "Application" or ap = "HyperCard" or¬¨ap = "QuickTime" or ap = "AppleLink" then put "" into apif ap is not "" thenif gAllAppsList = "" thenput "" into gAllAppsListput "" into gTempMediorDB1 "Setup",applicationsDataPath() & "Applications Titles db1"if the result is not "" then fail the resultMediorDB1 "Applications","Applications","All","gAllAppsList","gAllAppsRecs"if the result is not "" then fail the resultend ifput number of lines of char 1 to offset(ap,gAllAppsList) of gAllAppsList into theLineput line theLine of gAllAppsRecs into theRecordNumget MediorDB2("Setup",applicationsDataPath() & "Applications Data db2")if it is not "" then fail itget MediorDB2("ReadData","Applications",theRecordNum,"Folder")if checkError(it) then fail itput it into theCopyScriptif theLine > 0 thenanswer "While copying the "& prompt & ", would you like to copy "&ap&" also?"¬¨with "Cancel" or "No" or "Yes"else if (rq*1.05) ‚â• 2000000 thenanswer "The "&prompt &" is " & (rq*1.05) div 1024&"K and will take a while to copy." with "Cancel" or "Continue"end ifif it = "Yes" then put true into copyAppelse if it = "Cancel" thenexit copyend ifelse if (rq*1.05) ‚â• 2000000 thenanswer "The "&prompt &" is " & (rq*1.05) div 1024&"K and will take a while to copy." with "Cancel" or "Continue"elseget "Continue"end ifgo this cdif it = "Cancel" then exit CopySpinCursorif compressed = "SEA" thenif there is a btn "Idler" then show btn "Idler"spinCursoropen sPwait 2 secondswait until not the suspended--@ result memory checkelseif "Folder" is in prompt and compressed is "None" thenput lastFolder(sP) into defaultif last char of default is ":" then delete last char of defaultask file "Save folder as:" with defaultelse if compressed = "DD" thenput removePath(sP) into defaultask file "Save compressed file as:" with defaultelseput removePath(sP) into defaultask file "Save file as:" with defaultend ifif it = "" thenexit Copyend ifput it into thePathgo this cdput char 1 to offset(":",thePath) of thePath into theVolumeput diskSpaceAvail(theVolume) into spaceAvailif gTheError is not empty thenanswer "Sorry, unable to copy "&prompt&": " & return & gTheErrorput "" into gTheErrorexit Copyend ifif spaceAvail < rq*1.05 thendelete last char of theVolumebeepanswer "There is not enough space on the volume ‚Äú"& theVolume &"‚Äù to copy the " & prompt &"."&¬¨return & "Space required  : "& rq*1.05 div 1024 & "K" & return &¬¨"Space available : " & spaceAvail div 1024 & "K" with "Cancel"exit Copyend ifSpinCursorif length of thePath+31 > 250 thenbeepanswer "You specified a path too far down (more than 250 chars)."& return &¬¨"If you wish to copy this, please try again." with "Cancel"exit Copyend ifSpinCursorif prompt contains "Folder" and compressed is "None" thenCopyFolder sP,thePath,trueelse FileCopy sP,thePath,trueput the result into OsErrif OsErr contains "Error" thenanswer "Sorry, unable to copy "&prompt&": " & return & OsErrexit Copyend ifend ifSpinCursorwait until not the mouseClickif copyApp is true then do "copy "& quote & theCopyScript & quoteend Copyfunction lastFolder pput number of chars of p into lrepeat with i = l down to 1if char i of p = ":" then exit repeatend repeatsubtract 1 from irepeat with z = i down to 1if char z of p = ":" then exit repeatend repeatreturn char z+1 to i of pend lastFolder</script>
  17.     <background id="2663" file="background_2663.xml" name="" />
  18.     <background id="6025" file="background_6025.xml" name="Misc" />
  19.     <background id="9917" file="background_9917.xml" name="Misc" />
  20.     <card id="2925" file="card_2925.xml" marked="false" name="Main" owner="2663" />
  21.     <card id="4461" file="card_4461.xml" marked="false" name="Applications" owner="2663" />
  22.     <card id="3695" file="card_3695.xml" marked="false" name="Apple Art Library" owner="6025" />
  23.     <card id="9649" file="card_9649.xml" marked="false" name="Copyrights" owner="9917" />
  24. </stack>
  25.